target

target


Observations (n) 2000     Unique (n) 2    
Missing (n) 0     Missing ratio 0    
Empty (n) 0     Empty ratio 0    
Value n Proportion
negative 1866 0.93
positive 134 0.07

eg_factor_50

eg_factor_50


Observations (n) 2000     Unique (n) 50    
Missing (n) 0     Missing ratio 0    
Empty (n) 0     Empty ratio 0    
Value n Proportion
Virginia 52 0.03
South Carolina 50 0.03
Alabama 49 0.02
Ohio 49 0.02
Oregon 49 0.02
Alaska 47 0.02
Arizona 47 0.02
Idaho 47 0.02
Vermont 47 0.02
Maryland 45 0.02
Oklahoma 45 0.02
Georgia 44 0.02
Wyoming 44 0.02
Illinois 43 0.02
Kentucky 43 0.02
Missouri 43 0.02
Nevada 43 0.02
Texas 43 0.02
West Virginia 43 0.02
Connecticut 42 0.02
Florida 42 0.02
Montana 42 0.02
Hawaii 41 0.02
New Jersey 41 0.02
Pennsylvania 41 0.02
Iowa 40 0.02
Tennessee 40 0.02
Delaware 39 0.02
Maine 39 0.02
Nebraska 39 0.02
Minnesota 38 0.02
New York 38 0.02
North Carolina 38 0.02
South Dakota 38 0.02
Arkansas 37 0.02
Kansas 37 0.02
Massachusetts 37 0.02
New Hampshire 37 0.02
Rhode Island 37 0.02
Louisiana 36 0.02
Mississippi 35 0.02
Utah 35 0.02
North Dakota 32 0.02
Wisconsin 32 0.02
New Mexico 31 0.02
Washington 31 0.02
Indiana 30 0.01
Colorado 29 0.01
California 28 0.01
Michigan 25 0.01

eg_factor_50 ~ target

negative positive
Alabama 46 3
Alaska 45 2
Arizona 45 2
Arkansas 34 3
California 28 NA
Colorado 25 4
Connecticut 40 2
Delaware 37 2
Florida 40 2
Georgia 38 6
Hawaii 37 4
Idaho 46 1
Illinois 39 4
Indiana 28 2
Iowa 39 1
Kansas 36 1
Kentucky 40 3
Louisiana 35 1
Maine 35 4
Maryland 44 1
Massachusetts 36 1
Michigan 24 1
Minnesota 35 3
Mississippi 32 3
Missouri 41 2
Montana 40 2
Nebraska 37 2
Nevada 36 7
New Hampshire 31 6
New Jersey 38 3
New Mexico 29 2
New York 35 3
North Carolina 37 1
North Dakota 31 1
Ohio 44 5
Oklahoma 42 3
Oregon 46 3
Pennsylvania 38 3
Rhode Island 37 NA
South Carolina 46 4
South Dakota 36 2
Tennessee 36 4
Texas 38 5
Utah 31 4
Vermont 45 2
Virginia 49 3
Washington 28 3
West Virginia 39 4
Wisconsin 30 2
Wyoming 42 2

---
title: "eeda demonstration dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme: bootstrap
    orientation: columns
    vertical_layout: scroll
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(eeda)

target_var <- "target"
reference_var <- c("key_age", "key_recency", "key_frequency", "key_monetary")
study_variables <-
  names(eeda_test_data %>%
    dplyr::select(-tidyselect::any_of(c(target_var))))
```

```{r results="asis"}
curios::add_custom_style()
```

```{r results="asis"}
eeda::extra_eda(eeda_test_data,
  eda_var = "target",
  menu_title = "Univariate"
)
```

```{r results="asis"}
# study_variables %>%
"eg_factor_50" %>% 
  furrr::future_walk(~ eeda::extra_eda(eeda_test_data[1:200, ],
    eda_var = .x,
    target_var = target_var,
    reference_var = reference_var,
    menu_title = "Bivariate"
  ),
  .options = furrr::furrr_options(seed = NULL)
  )
```